﻿Public Class clsProdSpec
    Public Function selectByProdSpecId(prod_spec_id As String) As DataTable
        Dim szSql As String = ""
        szSql &= "SELECT * FROM sf.t_prod_spec "
        szSql &= "  WHERE prod_spec_id = ? and factory_id = ?"

        Dim dt As DataTable = DBacs.ExecuteSql(szSql, -1, prod_spec_id, "TS")
        If IsNothing(dt) Then
            selectByProdSpecId = New DataTable
        Else
            selectByProdSpecId = dt
        End If
    End Function
End Class
